home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / memory / emsaw41s.zip / TYPE400.PAS < prev   
Pascal/Delphi Source File  |  1994-06-26  |  1KB  |  27 lines
  1. procedure eminit;    external;
  2. procedure SIZAR    ( var t, f: longint); external;
  3. procedure NEWAR    ( var A; var w: longint); external;
  4. procedure SETINT   ( var A; var w:longint; var v); external;
  5. function  GETINT   ( var A; var w: longint): longint; external;
  6. procedure GETINTCO ( var A; var w:longint; var v); external;
  7. procedure SETF     ( var A; var w:longint; var b,l; var v); external;
  8. function  GETF     ( var A; var w:longint; var b,l): longint; external;
  9. procedure GETFCO   ( var A; var w:longint; var b,l; var v); external;
  10. procedure FREEAR   ( var A); external;
  11.  
  12. procedure siza     ( var t, f; var i); external;
  13. procedure newa     ( var A; var i:longint; var l); external;
  14. procedure setel    ( var A; var i:longint; var v); external;
  15. procedure getel    ( var A; var i:longint; var v); external;
  16. procedure freea    ( var A); external;
  17. procedure newa2 (var A:integer; var i,j:longint;   var l); external;
  18. procedure setel2(var A:integer; var i,j:longint;   var v); external;
  19. procedure getel2(var A:integer; var i,j:longint;   var v); external;
  20. procedure newa3 (var A:integer; var i,j,k:longint; var l); external;
  21. procedure setel3(var A:integer; var i,j,k:longint; var v); external;
  22. procedure getel3(var A:integer; var i,j,k:longint; var v); external;
  23. procedure newan (var A:integer; var R; var n:integer; var l); external;
  24. procedure seteln(var A:integer; var B; var v);external;
  25. procedure geteln(var A:integer; var B; var v);external;
  26.  
  27.